'test carte contenant des points, credits, tel que dans Basiccrd.pdf

Eeprom CustomerCredits ' Declare a permanent Integer variable

'renvoi la valeur du compteur de credit de la carte
Command &H20 &H02 GetCustomerCredits (Credits)
   Credits = CustomerCredits
End Command

'incremente de 1 la valeur du compteur de credit
Command &H20 &H03 IncCC (Credits)
   CustomerCredits = CustomerCredits + 1
   Credits = CustomerCredits
End Command

'incremente de n la valeur du compteur de credit
Command &H20 &H04 IncCCParam (Credits, Nb)
   CustomerCredits = CustomerCredits + Nb
   Credits = CustomerCredits
End Command
